home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 351-375 / 370 / sksh / .skshinit next >
Text File  |  1995-03-14  |  3KB  |  130 lines
  1. #*************************************************************************
  2. #
  3. #  Set up variables, flags, and keymaps
  4. #
  5. #*************************************************************************
  6.  
  7. options  +lEeFscC
  8.  
  9. PS1         = '$_ANSI_P3[$PWD]: $_ANSI_P1'
  10. PS2         = '$_ANSI_P3> $_ANSI_P1'
  11. PNPC        = 21
  12. LOGOUT      = 'echo "\nBye!\n"'
  13. LLMIN       = 4
  14. MAXDIST     = 5
  15. ROOT        = ':'
  16.  
  17. _ANSI_BS    = "^[[1m"
  18. _ANSI_BE    = "^[[m"
  19. _ANSI_IS    = "^[[3m"
  20. _ANSI_IE    = "^[[m"
  21. _ANSI_US    = "^[[4m"
  22. _ANSI_UE    = "^[[m"
  23. _ANSI_P1    = "^[[0;31;40m"
  24. _ANSI_P2    = "^[[0;32;40m"
  25. _ANSI_P3    = "^[[0;33;40m"
  26. _ANSI_CLEAR = "^[[H^[[2J"
  27.  
  28. _DIR_S      = "$_ANSI_P3"
  29. _DIR_E      = "$_ANSI_P1"
  30.  
  31.  
  32. #*************************************************************************
  33. #
  34. #  Set up sksh aliases
  35. #
  36. #*************************************************************************
  37.  
  38. alias    unalias   = 'unset -a'
  39. alias    unfunc    = 'unset -f'
  40. alias    aliases   = 'set -a'
  41. alias    functions = 'set -f'
  42. alias    variables = 'set -v'
  43. alias    builtins  = 'set -b'
  44. alias    help      = 'set -bfa'
  45. alias    logout    = 'exit 0'
  46. alias    pwd       = 'echo "$PWD"'
  47. alias    clear     = 'echo -n $_ANSI_CLEAR'
  48. alias    cls       = 'echo -n $_ANSI_CLEAR'
  49. alias    ctpri     = 'ChangeTaskPri'
  50. alias    '.'       = 'source'
  51. alias    quit      = 'LOGOUT=""; exit'
  52.  
  53. if [ "$SIZE" = 'normal' ]    # large version only...
  54. then
  55.    alias makedir   = 'mkdir'
  56.    alias delete    = 'rm'
  57.    alias remove    = 'rm'
  58.    alias '!'       = 'history -e'
  59.    alias '!!'      = 'history -e -1'
  60.    alias ll        = 'ls -lbF'
  61.    alias dir       = 'ls -bF'
  62.  
  63.    # setup emacs like keymap
  64.  
  65.    setmap -r                   # reset the keymap
  66.  
  67.    setmap -m 0 BOL '#' ACC     # comment out line macro
  68.  
  69.    setmap 0  8 BS   9  CC1  1  BOL  2 LFT   4  DEL  127 DEL  5 EOL  6 RHT \
  70.              7 ZAP  11 KEL  14 DN   15 EXE  16 UP   18  SRH 27 @1 155 @2 \
  71.              12 RDL 26 TIM  21 REP 20 SPC
  72.  
  73.    setmap 1  27 CC1  = CC2  \* CC3  8 BDW  f FWW  b BKW  d DLW  \. ILP \
  74.              \/ ILT  '<' HOL  '>' TOL  '#' '!0'
  75.  
  76.    setmap 2  A UP   B DN  C RHT  D LFT  T HOL  S TOL  ' ' @3 \
  77.              48 FNK  49 FNK  50 FNK  51 FNK  52 FNK  53 FNK  54 FNK \
  78.              55 FNK  56 FNK  57 FNK
  79.  
  80.    setmap 3  A BKW  @ FWW
  81. fi
  82.  
  83.  
  84. #*************************************************************************
  85. #
  86. #  Set up sksh functions
  87. #
  88. #*************************************************************************
  89.  
  90. function path {   # set or examine path
  91.  
  92.     local component;
  93.  
  94.     if [ $# -eq 0 ]
  95.     then
  96.         echo "$PATH";
  97.     elif [ "$1" = "-add" -o "$1" = "add" ]
  98.     then
  99.         shift
  100.         for component in $* do
  101.  
  102.             if [ $( expr index "$PATH," "$component," ) -eq 0 ]
  103.             then
  104.                 PATH = "$PATH,$component"
  105.             fi
  106.  
  107.         done
  108.     else
  109.         PATH = "$1"
  110.     fi
  111.  
  112.     export -l PATH
  113. }
  114.  
  115. function run {  # run a program, searching the SKsh $PATH
  116.     local prog loc
  117.  
  118.     prog = $1
  119.     shift
  120.  
  121.     loc = $(which -s $prog)
  122.  
  123.     if [ -z "$loc" ]
  124.     then
  125.        echo "$prog not found."
  126.     else 
  127.        $(which -s run) $loc $*
  128.     fi
  129. }
  130.